home *** CD-ROM | disk | FTP | other *** search
/ Invenzioni & Inventori / Invenzioni and Inventori (Eclectica Publishing) (1996).ISO / invenzio / icoinv8.dir / 00020_Script_20 < prev    next >
Text File  |  1983-02-08  |  603b  |  27 lines
  1. on toglitutto
  2.   global funzioni
  3.   set funzioni to ""
  4.   sound close 1
  5.   sound close 2
  6.   
  7.   tell the stage
  8.     global dove,cambio
  9.     set cambio to ""
  10.     set var to string(the windowlist)
  11.     if offset ("popup",var) then
  12.       close window "popup"
  13.       forget window "popup"  
  14.       if objectp (attore) then forget attore
  15.       set dove to 0
  16.      -- curfinmetti
  17.     end if
  18.     
  19.     set var to string(the windowlist)
  20.     if offset ("MENUBAR",var) then
  21.       close window "menubar"
  22.       forget window "menubar"  
  23.       if objectp (men) then forget men
  24.     end if
  25.   end tell
  26. end
  27.